home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr05 / ddl110.zip / MSA_DDL.TXT < prev    next >
Text File  |  1993-03-03  |  7KB  |  97 lines
  1. Option Compare Database   'Use database order for string comparisons
  2.  
  3. '* True/False constants *'
  4. Global Const fTrue = 1
  5. Global Const fFalse = 0
  6.  
  7. '* grbit values for AccessDDLCreateIndex *'
  8. Global Const ACCESSDDL_bitIndexUnique = &H1&
  9. Global Const ACCESSDDL_bitIndexPrimary = &H2&
  10.  
  11. '* grbit values for AccessDDLCreateReference *'
  12. Global Const ACCESSDDL_ReferenceUnique = &H1&
  13. Global Const ACCESSDDL_ReferenceDontEnforce = &H2&
  14.  
  15. '* Field Type constants *'
  16. Global Const ACCESSDDL_fieldtypeYesNo = 1
  17. Global Const ACCESSDDL_fieldtypeByte = 2
  18. Global Const ACCESSDDL_fieldtypeInteger = 3
  19. Global Const ACCESSDDL_fieldtypeLongInteger = 4
  20. Global Const ACCESSDDL_fieldtypeCurrency = 5
  21. Global Const ACCESSDDL_fieldtypeSingle = 6
  22. Global Const ACCESSDDL_fieldtypeDouble = 7
  23. Global Const ACCESSDDL_fieldtypeDateTime = 8
  24. Global Const ACCESSDDL_fieldtypeText = 10
  25. Global Const ACCESSDDL_fieldtypeOLE = 11
  26. Global Const ACCESSDDL_fieldtypeMemo = 12
  27.  
  28. '* SUCCESS *'
  29. Global Const ACCESSDDL_errSuccess = 0
  30.  
  31. '* ERRORS *'
  32. Global Const ACCESSDDL_errAccessDenied        = -1907   '* Access denied
  33. Global Const ACCESSDDL_errAlreadyInitialized  = -1030   '* Engine already started
  34. Global Const ACCESSDDL_errDatabaseCloseError  = -1806   '* Db file could not be closed
  35. Global Const ACCESSDDL_errDatabaseInvalidName = -1204   '* Invalid database name
  36. Global Const ACCESSDDL_errDatabaseNotFound    = -1203   '* No such database
  37. Global Const ACCESSDDL_errField2ndSysMaint    = -1510   '* Second autoinc or version field
  38. Global Const ACCESSDDL_errFieldCannotIndex    = -1513   '* Cannot index Bit,LongText,LongBinary
  39. Global Const ACCESSDDL_errFieldDuplicate      = -1508   '* Field is already defined
  40. Global Const ACCESSDDL_errFieldIndexed        = -1505   '* Field indexed, cannot delete
  41. Global Const ACCESSDDL_errFieldInUse          = -1046   '* Field used in an index
  42. Global Const ACCESSDDL_errFieldNotFound       = -1507   '* No such field
  43. Global Const ACCESSDDL_errFieldTooBig         = -1506   '* Field length is > maximum
  44. Global Const ACCESSDDL_errFileAccessDenied    = -1032   '* File Access Denied
  45. Global Const ACCESSDDL_errFileNotFound        = -1811   '* File not found
  46. Global Const ACCESSDDL_errIllegalOperation    = -1312   '* Oper. not supported on table
  47. Global Const ACCESSDDL_errIndexDuplicate      = -1403   '* Index is already defined
  48. Global Const ACCESSDDL_errIndexHasPrimary     = -1402   '* Primary index already defined
  49. Global Const ACCESSDDL_errIndexInUse          = -1051   '* index used in a reference
  50. Global Const ACCESSDDL_errIndexNotFound       = -1404   '* Specified index not found
  51. Global Const ACCESSDDL_errInvalidAccountName  = -1903   '* Invalid account name
  52. Global Const ACCESSDDL_errInvalidDatabase     = -1028   '* This isn't a database
  53. Global Const ACCESSDDL_errInvalidDatabaseId   = -1010   '* Invalid database id
  54. Global Const ACCESSDDL_errInvalidFieldType    = -1511   '* Invalid field data type
  55. Global Const ACCESSDDL_errInvalidLogon        = -1902   '* Invalid username or password
  56. Global Const ACCESSDDL_errInvalidName         = -1002   '* Invalid database name
  57. Global Const ACCESSDDL_errInvalidParameter    = -1003   '* Invalid API parameter
  58. Global Const ACCESSDDL_errInvalidPassword     = -1905   '* Invalid password
  59. Global Const ACCESSDDL_errInvalidPath         = -1023   '* Pathname is invalid or nonexistent
  60. Global Const ACCESSDDL_errInvalidTableId      = -1310   '* Invalid table id
  61. Global Const ACCESSDDL_errLinkNotSupported    = -1052   '* Link support unavailable
  62. Global Const ACCESSDDL_errNotInitialized      = -1029   '* StartEngine not yet called
  63. Global Const ACCESSDDL_errObjectNotFound      = -1305   '* No such table or object
  64. Global Const ACCESSDDL_errPermissionDenied    = -1809   '* Permission denied
  65. Global Const ACCESSDDL_errSelfReference       = -1407   '* Referencing/Referenced index is the same
  66. Global Const ACCESSDDL_errTableDuplicate      = -1303   '* Table already exists
  67. Global Const ACCESSDDL_errTableInUse          = -1304   '* Table is in use, cannot lock
  68. Global Const ACCESSDDL_errTooManyFields       = -1040   '* Too many fields defined
  69. Global Const ACCESSDDL_errTooManyKeys         = -1016   '* Too many fields in an index
  70. Global Const ACCESSDDL_errTooManyOpenFiles    = -1807   '* Too many files open
  71. Global Const ACCESSDDL_errTooManyTasks        = -20001  '* Too many concurrent DDL tasks
  72.  
  73.  
  74. '* Function Prototypes *'
  75. Declare Function AccessDDLStartEngine Lib "msaddl11.dll" (ByVal szSystemFileName As String, ByVal szINIFileName As String, ByVal szUserName As String, ByVal szPassword As String) As Long
  76. Declare Function AccessDDLStopEngine Lib "msaddl11.dll" () As Long
  77.  
  78. Declare Function AccessDDLOpenDatabase Lib "msaddl11.dll" (ByVal szDatabase As String, pdbid As Long) As Long
  79. Declare Function AccessDDLCloseDatabase Lib "msaddl11.dll" (ByVal dbid As Long) As Long
  80.  
  81. Declare Function AccessDDLOpenTable Lib "msaddl11.dll" (ByVal dbid As Long, ByVal szTableName As String, ptableid As Long) As Long
  82. Declare Function AccessDDLCreateTable Lib "msaddl11.dll" (ByVal dbid As Long, ByVal szTableName As String, ptableid As Long) As Long
  83. Declare Function AccessDDLDeleteTable Lib "msaddl11.dll" (ByVal dbid As Long, ByVal szTableName As String) As Long
  84. Declare Function AccessDDLRenameTable Lib "msaddl11.dll" (ByVal dbid As Long, ByVal szTableName As String, ByVal szTableNew As String) As Long
  85. Declare Function AccessDDLCloseTable Lib "msaddl11.dll" (ByVal tableid As Long) As Long
  86.  
  87. Declare Function AccessDDLAddField Lib "msaddl11.dll" (ByVal dbid As Long, ByVal tableid As Long, ByVal szFieldName As String, ByVal fieldtype As Long, ByVal cbMax As Long, ByVal fAutoincr As Integer) As Long
  88. Declare Function AccessDDLDeleteField Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szFieldName As String) As Long
  89. Declare Function AccessDDLRenameField Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szFieldName As String, ByVal szFieldNew As String) As Long
  90.  
  91. Declare Function AccessDDLCreateIndex Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szIndexName As String, ByVal grbit As Long, ByVal szKey As String) As Long
  92. Declare Function AccessDDLDeleteIndex Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szIndexName As String) As Long
  93. Declare Function AccessDDLRenameIndex Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szIndex As String, ByVal szIndexNew As String) As Long
  94.  
  95. Declare Function AccessDDLCreateReference Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szReferenceName As String, ByVal szFields As String, ByVal szReferencedTable As String, ByVal szReferencedFields As String, ByVal grbit As Long) As Long
  96. Declare Function AccessDDLDeleteReference Lib "msaddl11.dll" (ByVal tableid As Long, ByVal szReferenceName As String) As Long
  97.